home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Tutorial / ARexx Tutorial / TuteRexx / CheckSystem.rexx < prev    next >
OS/2 REXX Batch file  |  1998-11-07  |  2KB  |  57 lines
  1. /*
  2. $VER: CheckSystem.rexx 1.0 (12.8.98)
  3. Checks system for anything that will stop D5M2 ARexx examples from working.
  4. */
  5. options results
  6. lf = '0a'x
  7. if ~show('L','rexxsupport.library') then call addlib('rexxsupport.library',0,-30,0)
  8. if ~exists('DOpus5:') then do
  9.   address command 'requestchoice "ARexx Tutorial" "Directory Opus not installed,'||lf||'''DOpus5:'' not found!" "OK"'
  10.   exit
  11.   end
  12. dp = show('P','DOPUS.1')
  13. if ~dp then do
  14.   address command 'requestchoice "ARexx Tutorial" "The Directory Opus port,'||lf||'''DOPUS.1'' is not available." "OK"'
  15.   exit
  16.   end
  17. address 'DOPUS.1'
  18. if ~exists('DOpus5:Help/DOpusM2_ARexx.guide') then do
  19.   text = 'The main Opus ARexx command guide does'||lf||,
  20.          'not seem to be present on your system:'||lf||,
  21.          '''DOpus5:Help/DOpusM2_ARexx.guide'''||lf||,
  22.          'Do you want to copy it from the CD?'
  23.   dopus request '"'text'" Yes|No'
  24.   if rc = 1 then
  25.     address command 'Copy "DOplus:tutorial/Arexx Guide/DOpusM2_ARexx.guide" DOpus5:Help/'
  26.   else
  27.     dopus request '"ARexx Command references from the tutorial'||lf||,
  28.                    ' will not be available." OK'
  29.   end
  30. if ~exists('DOpus5:Help/DOpus5.guide') then do
  31.   text = 'The main Opus Help guide does not'||lf||,
  32.          'seem to be present on your system:'||lf||,
  33.          '''DOpus5:Help/DOpus5.guide'''||lf||lf||,
  34.          'Do you want to copy it from the distribution?'
  35.   dopus request '"'text'" Yes|No'
  36.   if rc = 1 then do
  37.     text = 'The main Opus Help guide is available'||lf||,
  38.            'from the Opus Magellan-II Install disk'
  39.     dopus request '"'text'" Ok'
  40.     end
  41.   else
  42.     dopus request '"Internal Command references from the tutorial'||lf||,
  43.                    ' may not be available." OK'
  44.  
  45. if ~exists('C:Wait') then do
  46.   text = 'Most of the examples require the'||lf||,
  47.          '''C:Wait'' command.  Yours seems'||lf||,
  48.          'to be missing, please ensure it'||lf||,
  49.          'is available.'
  50.   dopus request '"'text'" OK'
  51.   end
  52. dopus request '"System looks OK :)" OK'
  53. dopus request '"Wait...I think I found a problem..." OK'
  54. dopus request '"It looks like someone has stolen'||lf||'3Megs of RAM..." OK'
  55. dopus request '"Oh, it''s OK, it was only'||lf||'Directory Opus" OK'
  56. exit
  57.